home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Oberon⁄F™ 1.1 / Obx / Docu / Fern (.txt) < prev    next >
Encoding:
Oberon Document  |  1996-01-05  |  2.3 KB  |  55 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Helvetica
  16. TextRulers.StdRulerDesc
  17. TextRulers.RulerDesc
  18. TextRulers.StdStyleDesc
  19. TextRulers.StyleDesc
  20. TextRulers.AttributesDesc
  21. Helvetica
  22. StdLinks.LinkDesc
  23. StdCmds.OpenDoc('Obx/Mod/Random')
  24. Helvetica
  25. Helvetica
  26. StdCmds.OpenDoc('Obx/Mod/IFS')
  27. DevCommanders.StdViewDesc
  28. DevCommanders.ViewDesc
  29. Oberon by Example: Fractal Fern
  30. (Example from "Programming in Oberon", by Wirth/Reiser)
  31. 1) Compile module 
  32. ObxRandom
  33. 2) Compile module 
  34. ObxIFS
  35. 3) Select the following numbers:
  36.     120    0    25
  37.     0.0    0.85    0.2    -0.15
  38.     0.0    0.04    -0.26    0.28
  39.     0.0    -0.04    0.23    0.26
  40.     0.16    0.85    0.22    0.24
  41.     0.0    0.0    0.0    0.0
  42.     0.0    1.6    1.6    0.44
  43.     0.01    0.85    0.07    0.07
  44. 4) Execute the following command: 
  45.  ObxIFS.Init
  46. 5) Execute the following command: 
  47.  ObxIFS.Draw
  48. 6) Stop the iteration by pressing the key "s"
  49. TextControllers.StdCtrlDesc
  50. TextControllers.ControllerDesc
  51. Containers.ControllerDesc
  52. Controllers.ControllerDesc
  53. Helvetica
  54. Documents.ControllerDesc
  55.